home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / dcv_win / src / dc_dlog.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-01-07  |  2.3 KB  |  116 lines
  1. unit Dc_dlog;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, Dialogs, ExtCtrls;
  7.  
  8. type
  9.   TBtnRightDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     Bevel1: TBevel;
  13.     BitBtn1: TBitBtn;
  14.     CheckBox1: TCheckBox;
  15.     Panel1: TPanel;
  16.     OpenDialog1: TOpenDialog;
  17.     Edit1: TEdit;
  18.     Panel2: TPanel;
  19.     Edit2: TEdit;
  20.     procedure Edit1Change(Sender: TObject);
  21.     procedure Edit2Change(Sender: TObject);
  22.     procedure OKBtnClick(Sender: TObject);
  23.     procedure BitBtn1Click(Sender: TObject);
  24.     procedure CancelBtnClick(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.   private
  27.     { Private 宣言 }
  28.   public
  29.     { Public 宣言 }
  30.   end;
  31.  
  32. var
  33.   BtnRightDlg: TBtnRightDlg;
  34.   com, param: String;
  35.   picFg, cBtn: Integer;
  36.   function retCom(a: String): String;
  37.   function retParam(b: String): String;
  38.   function retpic(c: Integer): Integer;
  39.   function can(d: Integer): Integer;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TBtnRightDlg.Edit1Change(Sender: TObject);
  46. begin
  47.      com := edit1.text;
  48. end;
  49.  
  50. procedure TBtnRightDlg.Edit2Change(Sender: TObject);
  51. begin
  52.      param := edit2.text;
  53. end;
  54.  
  55. procedure TBtnRightDlg.OKBtnClick(Sender: TObject);
  56. begin
  57.      com := edit1.text;
  58.      param := edit2.text;
  59.      if (checkbox1.state = cbChecked) then
  60.         picFg := 1
  61.      else
  62.         picFg := 0;
  63.      cBtn := 0;
  64.      close;
  65. end;
  66.  
  67. procedure TBtnRightDlg.BitBtn1Click(Sender: TObject);
  68. begin
  69.      OpenDialog1.Title := '起動プログラム選択';
  70.      if OpenDialog1.Execute then
  71.      { FileOpenDialog }
  72.      begin
  73.           edit1.text := OpenDialog1.FileName;
  74.      end;
  75. end;
  76.  
  77. procedure TBtnRightDlg.CancelBtnClick(Sender: TObject);
  78. begin
  79.      cBtn := 1;
  80.      close;
  81. end;
  82.  
  83. function retCom(a: String): String;
  84. begin
  85.      retCom := com;
  86. end;
  87.  
  88. function retParam(b: String): String;
  89. begin
  90.      retParam := param;
  91. end;
  92.  
  93. function retpic(c: Integer): Integer;
  94. begin
  95.      retpic := picFG;
  96. end;
  97.  
  98. procedure TBtnRightDlg.FormCreate(Sender: TObject);
  99. begin
  100.      BtnRightDlg.Caption := '起動ファイル選択';
  101.      com := edit1.text;
  102.      param := edit2.text;
  103.      if (checkbox1.state = cbChecked) then
  104.         picFg := 1
  105.      else
  106.         picFg := 0;
  107.      cBtn := 0;
  108. end;
  109.  
  110. function can(d: Integer): Integer;
  111. begin
  112.      can := cBtn;
  113. end;
  114.  
  115. end.
  116.